﻿Partial Public Class EgresadoInfoLaboral
    Inherits System.Web.UI.Page
    Dim ocnEgresados As New CapaNegocio.Egresados
    Dim ocnAlumnos As New CapaNegocio.Alumnos

    Dim ocnAlumno As New CapaNegocio.Negocio()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cargargrilla()
    End Sub

    Function cargargrilla()
        Dim ds As New DataSet
        ds = ocnAlumnos.obtenerVistaAlumnoInfoLaboral()

        Me.GridViewAlumnoInfLaboral.DataSource = ds.Tables(0)

        Me.GridViewAlumnoInfLaboral.DataBind()
        Return Me.GridViewAlumnoInfLaboral
    End Function
    Protected Sub ButtonGuardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonGuardar.Click
        ocnAlumnos.InsertarInfoLaboral(Me.TextBoxDniAlumno1.Text, Me.TextBoxNombreEmpresa.Text _
                                        , Me.TextBoxPuesto.Text, Me.TextBoxFunciones.Text _
                                        , Me.TextBoxAntiguedad.Text)
        cargargrilla()
    End Sub
End Class